home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / ttx2_sasc.lha / Rexx / TTX_SASC / lbrace.ttx < prev    next >
Encoding:
Text File  |  1994-12-07  |  613 b   |  44 lines
  1. /* lbrace.ttx */
  2.  
  3. Options RESULTS
  4.  
  5. SetDisplayLock ON
  6.  
  7. GetBlkInfo
  8. Parse var RESULT isblk vertblk row col
  9.  
  10. if isblk = 'OFF' | vertblk = 'ON'
  11.     then do        
  12.         Insert Text '"{"'
  13.         InsertLine
  14.         Insert Text '"    "'
  15.         SetDisplayLock OFF
  16.         exit 0
  17.     end
  18.  
  19. /*  There is a horizontal block.  Enclose it in {} */
  20.  
  21. ShiftRight TABS COUNT 1
  22. SetBookMark 0
  23. Move FOLDS LINE row COLUMN col
  24. MoveUp
  25. MoveEOL NONBLANK
  26. GetCursorpos 
  27. parse var RESULT line col .
  28. if col ~= 1 then do 
  29.     Insert Text '" "'
  30. end
  31. Insert TEXT '"{"'
  32. MoveBookMark 0
  33. MoveUp
  34. MoveEOL
  35. InsertLine
  36. MovePrevTabStop
  37. Insert Text '"}"'
  38. InsertLine
  39. MarkBlk
  40.  
  41. SetDisplayLock OFF
  42.  
  43. exit 0
  44.